#!/usr/bin/perl
# your code goes here

use strict;
use warnings;
use Data::Dumper;

my $v = q/
	foo "bar" baz
	foo 'bar' baz
	foo '!bar" baz
	foo !bar bas
/;

if (my @l = $v =~ m/'([^']*)'|"([^"]*)"/g) {
	print '>>> matched ' . Dumper(\@l);
}