print "What msisdn?";
chomp($var = <STDIN>);

$var1 = "MSTerminating"
$var2 = "MSORIGINATING"
$var3 = "CallForwarding"
@patterns = ($var, $var1, $var2, $var3);