#!/usr/bin/perl

use strict;
use Text::ParseWords;

my $test_string = <<EOT;
target  all
        targets         = "/routers/links/n41-r1-fastethernet0-1-806-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-918-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-804-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-616-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-704-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-916-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-439-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-919-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-801-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-802-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-444-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-914-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-810-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-435-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-622-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-807-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-422-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-915-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-412-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-419-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-437-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-424-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-415-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-808-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-905-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-427-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-432-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-902-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-911-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-420-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-805-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-619-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-442-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-410-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-809-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-917-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-912-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-441-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-706-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-617-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-909-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-703-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-621-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-431-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-906-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-901-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-624-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-614-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-701-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-440-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-623-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-438-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-702-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-907-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-620-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-612-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-413-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-625-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-908-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-904-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-417-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-615-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-618-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-423-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-705-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-421-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-443-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-913-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-910-802-1q;
                           /routers/links/n41-r1-fastethernet0-1-436-802-1q"
EOT

my @words = ();
@words = quotewords('[\s=]+', 0, $test_string);

#print join(',',@words),"\n";
