fork download
  1. #!/usr/bin/perl
  2. $str = "'string; 'inside' another;";
  3. $str =~ s/^'|'?;?$//g;
  4. print $str;
Success #stdin #stdout 0s 6044KB
stdin
Standard input is empty
stdout
string; 'inside' another