$message =~ s~\[size=(.+?)\](.+?)\[/size\]~'' . "$2"~eisg; # I'm trying to test $1 so that if it's greater than 5, # fix it at 5, else leave it unchanged.