#!/usr/bin/perl
use strict;
use warnings;
use Text::CSV_XS;

my $csv = Text::CSV_XS->new ({sep_char => ' '});

while (my $line = <DATA>) {
    chomp $line;

    # See perldoc Text::CSV_XS for warnings
    # about this approach with possible embedded
    # newlines:
    my $status = $csv->parse($line);

    my @fields;
    if ($status) {
        @fields = $csv->fields();
    }
    else {
        warn "Problem parsing $line\n";
    }
    
    for my $field (@fields) {
        print "Captured ($field) from $line\n" if $field =~ m!^/!;
    }
}


__DATA__
"/moreIters 10"
"/bootMe any text here"
/fewIter
/some stuff here
"/albatross" foo bar baz
monkeys
leprechauns /not monkeys
/gnomes "not leprechauns though"
/gnomes more data here

##</code><code>##

Captured (/moreIters 10) from "/moreIters 10"
Captured (/bootMe any text here) from "/bootMe any text here"
Captured (/fewIter) from /fewIter
Captured (/some) from /some stuff here
Captured (/albatross) from "/albatross" foo bar baz
Captured (/not) from leprechauns /not monkeys
Captured (/gnomes) from /gnomes "not leprechauns though"
Captured (/gnomes) from /gnomes more data here