$str = '004asdfsa'; #string starting with zero and followed by numbers

$str =~ s/^0+(?=\d)//;

print $str;

Output:
--------
4asdfsa