#!/usr/bin/perl
use strict;
use warnings;

my $url = "http://test.usa.com/o/tA\$IXTq\$2ALoYduAJQs\$j.AJQRO-QA/nourl1";

my @arr = split(/\//,$url);


$arr[2] =~ s/^www.//;
my @arr2 = split(/\./,$arr[2]);
print "@arr2";

print "\n",$arr[2];