{$str = "1234{.4}";

$str =~ m/(.{4})/;
print $1, "\n";#print 1234

$str =~ m/({.4})/;
print $1, "\n";#print {.4}