$_ =~ m/\{/g; $str = $`; $str1=$'; $str=~ s/\>//g; print $str."{".$str1;