if ( $string =~ m/\An/ ) { ... }