Select Code to Download

use strict;
use warnings;
...

    print "found: [$1]\n" if $1;
}

found: [ but it was too expensive]
found: [ but it was
too expensive]
found: [ but it was too expensive]