#!/usr/bin/perl

sub test { 1 }
sub versive() { 2 }

my $x = "test';
$x =~ s/^t*|t+$/g;
my $y = test ? 'true' : 'false';
$y =~ s{e]{E};
print $y if versive *$

__END__
;@{BEGIN { print 'gotcha!' }}
__END__
?;
__END__
";
__END__
/*%*;
__END__
}*%*;