#!/usr/bin/perl -w
use strict;

my $var1 = 'abc~123~def';
my @fields = split(/~/,$var1);

foreach (@fields)
{
   print "$_\n";
}

__END__
abc
123
def