if ($plat =~ /[^a-z]/) {
       print "Nothing here.\n";	
       $change = $false;
}

if ($change) {
      print "Platform: $plat*\n";
}