#! /usr/bin/perl -wn
BEGIN {
  unless (defined ($var = shift)) {
    print STDERR "Usage: $0 var-name\n";
    exit 1;
  }
}
if (/^\Q$var\E=/) {
  s/^\Q$var\E=//;
  print, last unless /^'/;
  do {
    $quotes = (grep /'/g, (split //, $_)) % 3;
    $inside = $quotes ... $quotes;
    s/^'// if $inside == 1;
    s/'$// if $quotes == 2 || $inside =~ /E0$/;
    s/'\\''/'/g;
    print;
    last if $quotes == 2 || $inside =~ /E0$/;
  } while (<>);
}