Select Code to Download

$var = '/aasd/aacscsaa/affr4a/a55gaa/gvgaa/5h aa/fga';

$var =~ s#/aasd##;  # remove '/aasd' 

...
$var =~ m#/[^/]+(.*)# and $var = $2; # match what follows 
                                     # after the non-slashes
                                     # and set it to $var