use strict;
    use Data::Dumper;
    use re 'debug';

    'abc123def456' =~ /(?<=f)(\d+)/;
    print "$1\n";