while (<>) {
    $num ="2";
    $eq = sub { $_[0] == $_[1] };
    /(\d+).*/;
    if ($eq->( $num, $1 ) ) {
        print "match\n";
    }
}