if( $string =~ /.../ ) {
    print " first is : $1\n\n";
} else {
    print "Nothing found in <<$string>>\n";
};