Регулярное выражение

попробуй (\+)|(-)|(\*)|(\/)

попробую... минус вроде тоже спецсимвол?

да вроде вот так работает:
#!/usr/bin/perl
chomp;
while(<>) {
chomp($_);
if ( $_ =~ m/^([\+\-\*\/]{1})$/ ) {
print "match!\n" ;
}
}

sasha@as255:~$ ./aaaa.pl
+
match!
++
*
match!
,
/
match!
//