use Regexp::English;
print Regexp::English ->new
    ->beginning_of_string
    ->literal('SR')
    ->digit
    ->digit
    ->digit
    ->digit
    ->digit
    ->digit
    ->digit
    ->end_of_string, "\n";
__END__
(?^:\ASR\d\d\d\d\d\d\d\Z)