The best way is split: my @a = split qr{[/.]}, $important_string

Also see @a = grep {! m/\.sta/ } @a

Fortunately perl is magic and doesn't require 400 lines for simple tasks like these. You can just use the built ins.

References: grep, split