use strict;
use warnings;

while (my $line = <DATA>) {
    if ($line =~ /^pass\s*\:(\d+)/) {
        print "$1\n";
    }
}

__DATA__
abcd
pass    :10
adlksfkldf
kkjfkdf  :112