print "$1\n$2\n" if $var =~ /^\((.*)\),(.*)$/;

##</code><code>##

this is a good idea!
 No it's not