my ($ip,$interface) = qw(192.168.1.1 POS1/0/0); 
(my $filename = "$ip--$interface.txt")=~tr{/}{}d;
# $filename now contains '192.168.1.1--POS100.txt"