my $update_p4filelog = "...xyz branch from //source/qcom/qct/multimedia/qtv/player/audioplayer/rel/1.1/src/file.cpp#1,#8"; my ($path, $ver) = $update_p4filelog =~ /branch from (.*\/.*)[#\d+,]?(#\d+)$/; use DDS;Dump( $path, $ver ); __END__ $VAR1 = '//source/qcom/qct/multimedia/qtv/player/audioplayer/rel/1.1/src/file.cpp#1,'; $VAR2 = '#8';