print "I love perl ".$_++." times\n" while m/vroom/;

print "Bwech" unless m/perl/ or not substr($^O, 'linux' );