#!/usr/bin/perl use strict; my $abc = 'a;b;c;d'; my ($a, $b) = (split(';',$abc))[0,1]; print "$a and $b"; [download]
In reply to Re: using split by bichonfrise74 in thread using split by Sun751