sharp amp hi-fi stereo hardware

sharp amp stereo hardware hi-fi

my ($relpath) = $abspath =~ m#/var/ftp/(.*)$#;

perl regex match variable list assign