$interface =~ s(\/)(_)g; #slashes become underscores
$interface =~ s(\.)(_)g; #periods too, huh
$interface =~ s(\-)(_)g; #yup, and dashes
$interface =~ s(\/)(_)g; #slashes become underscores
$interface =~ s(\.)(_)g; #periods too, huh
$interface =~ s(\-)(_)g; #yup, and dashes