if ("blah" =~ /a/) {
    print '/a/' . "\n";        
}
if ("blah" =~ /^a/) {
    print '/^a/' . "\n";    
}
if ("blah" =~ /ba/) {
    print '/ba/' . "\n";        
}
if ("blah" =~ /b.a/) {
    print '/b.a/' . "\n";    
    
}
if ("blah" =~ /[a-h]*/) {
    print '/[a-h]*/' . "\n";        
}
if ("blah" =~ /^[a-h]*$/) {
    print '/^[a-h]*$/' . "\n";        
}
if ("blah" =~ /[a-m]*/) {
    print '/[a-m]*/' . "\n";        
}
if ("blah" =~ /^[a-m]*$/) {
    print '/^[a-m]*$/' . "\n";        
}