#!/usr/bin/perl

$mystring = join("", <>);
#print $&;
print "-----------mystring--------------------------\n";
print $mystring;
print "------------variables----------------------------\n";
if ($mystring =~ m/my.*?\((\S*?)\)/g) {
#if ($mystring =~ s/my.*?\((\S*?)\)/xxxxxxx/g) {
print "$1 \n";
print "-----------mystring again--------------------------\n";
print $mystring;
print "-----------------------------------------\n";
}