Wenn du nur den gefilterten String brauchst würde ich einfach auch alles filtern, was nicht reingehört:
$argv1 =~ s/[^a-z0-9_]//ig
Ohne if drum rum.