Select Code to Download

#!/usr/bin/perl
#
...
$scalar =~ s/::vegetable\|\|celery//;

print $scalar;

#!/usr/bin/perl
#
...
          );

print Dumper(@arr);