Select Code to Download

if ($sp =~ m{ \. ( [^(]* ) ( \( .* \) ) }x)
{
    print "pin = $1\n";
    print "sig = $2\n";
}