Select Code to Download

    $text =~ /extractor/    # i.e. match anywhere in the string

    $text =~ /\G extractor/gc    # i.e. match at current pos in string

    use Text::Balanced ':ALL';

...

    use Data::Dumper 'Dumper';
    print Dumper [ @data ];