3 unless (defined ($var = shift)) {
4 print STDERR "Usage: $0 var-name\n";
10 print, last unless /^'/;
12 $quotes = (grep /'/g, (split //, $_)) % 3;
13 $inside = $quotes ... $quotes;
14 s/^'// if $inside == 1;
15 s/'$// if $quotes == 2 || $inside =~ /E0$/;
18 last if $quotes == 2 || $inside =~ /E0$/;