DB<112> $x=';a;not;b;not;c;;' => ";a;not;b;not;c;;" DB<113> print $x =~ /;(.*?);;/ a;not;b;not;c DB<114> print $x =~ /;([^;]*?);;/ c